home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / BOT-CIA.DSK / BOT HELLO.bas next >
BASIC Source File  |  2014-09-09  |  657b  |  20 lines
  1. 5  FOR X = 1 TO 4: READ A$(X): NEXT 
  2. 10  TEXT : CALL  -936: VTAB 12
  3. 20  PRINT "             LOADING MENU..."
  4. 25  PRINT "<CTRL-D>BLOADDOS"
  5. 27  PRINT "<CTRL-D>BLOADDOS2"
  6. 30  PRINT "<CTRL-D>BLOADPIC"
  7. 40  POKE  -16304,0: POKE  -16302,0: POKE  -16297,0
  8. 50  POKE  -16368,0
  9. 60 A =  PEEK( -16384): IF A <128  THEN 60
  10. 65  POKE  -16368,0
  11. 70  IF A = 218  THEN A = 1
  12. 80  IF A = 201  THEN A = 2
  13. 90  IF A = 212  THEN A = 3
  14. 100  IF A = 198  THEN A = 4
  15. 110  IF A <1  OR A >4  THEN 50
  16. 120  TEXT : HOME : VTAB 12: HTAB 13
  17. 130  PRINT "LOADING ";A$(A);
  18. 140  FOR X = 1 TO (8 - LEN(A$(A))): PRINT ".";: NEXT 
  19. 150  PRINT : PRINT "<CTRL-D>BRUN";A$(A)
  20. 160  DATA ZAP,INIT,TRAX,FIXCAT